home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / dalla rivista / host contacted / imengv3.41p1.lha / ImEngV3.41p1 / ARexx / FadeInAnim.rexx < prev    next >
OS/2 REXX Batch file  |  1999-09-18  |  3KB  |  97 lines
  1. /***************************************/
  2. /* Image Engineer script               */
  3. /* Fade In Anim                        */
  4. /* by Simon Edwards                    */
  5. /*                                     */
  6. /* MS: Script was using old IE's       */
  7. /*     commandset. Fixed.              */
  8. /*     Forced pictures to use          */
  9. /*     zoomlevel of 1:4.               */
  10. /*                                     */
  11. /***************************************/
  12.  
  13. Options results
  14. signal on error            /* Setup a place for errors to go */
  15.  
  16. address 'IMAGEENGINEER'
  17. IE_To_Front
  18.  
  19. 'REQUEST "This script generates animation frames of title'||D2C(10)||'image fading in over a background image." "Ok"'
  20.  
  21. 'GET_FILE "Select an Image for background"'
  22. BackFile=result
  23.  
  24. 'GET_FILE "Select an Image for title"'
  25. TitleFile=result
  26.  
  27. 'GET_NUMBER "Enter the number of frames to generate" 1 100 "Ok|Cancel" 10'
  28. NumberOfFrames=RESULT
  29.  
  30. 'GET_FILE "Enter base path and file name"'
  31. BasePath=RESULT
  32.  
  33. 'RENDER_GET "Set render options"'
  34. RenderOptions=RESULT
  35.  
  36. 'GET_FILE_TYPE "Select Save format"'
  37. SaveFormat=RESULT
  38.  
  39. 'OPEN "'||BackFile||'"'
  40. BackProject=RESULT
  41.  
  42. PROJECT_SET backproject ZOOM "1:4"
  43.  
  44.  
  45. 'OPEN "'||TitleFile||'"'
  46. TitleProject=RESULT
  47.  
  48. PROJECT_SET titleproject ZOOM "1:4"
  49.  
  50. PROJECT_INFO BackProject WIDTH
  51. BackWidth=RESULT
  52. PROJECT_INFO BackProject HEIGHT
  53. BackHeight=RESULT
  54.  
  55. PROJECT_INFO TitleProject WIDTH
  56. TitleWidth=RESULT
  57. PROJECT_INFO TitleProject HEIGHT
  58. TitleHeight=RESULT
  59.  
  60. XOffset=(BackWidth-TitleWidth)/2
  61. YOffset=(BackHeight-TitleHeight)/2
  62.  
  63. MARK BackProject SECONDARY
  64. MARK TitleProject PRIMARY
  65.  
  66. do i=1 to NumberOfFrames
  67. 'COMPOSITE ' XOffset YOffset 'MIX' (i-1)/(NumberOfFrames-1)*100 'GENLOCK'
  68. Frame=RESULT
  69. 'RENDER_SET' Frame RenderOptions
  70. 'RENDER' Frame
  71. 'SAVE' Frame '"'||BasePath||right(i,3,'0')||'" "'||SaveFormat||'"'
  72. 'CLOSE' Frame
  73. end
  74.  
  75. 'CLOSE' TitleProject
  76. 'CLOSE' BackProject
  77. 'REQUEST "Done, generated ' NumberOfFrames 'frames."'
  78. exit
  79.  
  80. /*******************************************************************/
  81. /* This is where control goes when an error code is returned by IE */
  82. /* It puts up a message saying what happened and on which line     */
  83. /*******************************************************************/
  84. error:
  85. if RC=5 then do            /* Did the user just cancel us? */
  86.     IE_TO_FRONT
  87.     LAST_ERROR
  88.     'REQUEST "'||RESULT||'"'
  89.     exit
  90. end
  91. else do
  92.     IE_TO_FRONT
  93.     LAST_ERROR
  94.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  95.     exit
  96. end
  97.